home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / apps2 / biostuff.lzx / cny.opl < prev    next >
Text File  |  1996-09-19  |  896b  |  76 lines
  1. PROC chin:
  2. local a,b,c,key%
  3. escape on
  4. cls
  5. print "  This programme caculates your chinese character"
  6. top::
  7. a=0
  8. print"    Year of birth?"
  9. input b
  10. a=b-1900
  11. run::
  12. if a>42
  13. goto Conv1::
  14. endif
  15. if a<30
  16. goto Conv2::
  17. endif
  18. pri::
  19. if a=30
  20. print "Horse"
  21. goto mo::
  22. elseif a=31
  23. goto mo::
  24. print "Goat"
  25. goto mo::
  26. elseif a=32
  27. print "Monkey"
  28. goto mo::
  29. elseif a=33
  30. print "Rooster"
  31. goto mo::
  32. elseif a=34
  33. print "Dog"
  34. goto mo::
  35. elseif a=35
  36. print "Pig"
  37. goto mo::
  38. elseif a=36
  39. print "Rat"
  40. goto mo::
  41. elseif a=37
  42. print "Buffalo"
  43. goto mo::
  44. elseif a=38
  45. print "Tiger"
  46. goto mo::
  47. elseif a=39
  48. print "Cat"
  49. goto mo::
  50. elseif a=40
  51. print "Dragon"
  52. goto mo::
  53. elseif a=41
  54. print "Snake"
  55. endif    
  56. Conv1::
  57. a=a-12
  58. if a>42
  59. goto Conv1::
  60. else goto pri::
  61. endif
  62.  
  63. conv2::
  64. a=a+36
  65. goto run::
  66.  
  67. mo::
  68. print "Again? (Y/N)"
  69. key%=get
  70. if key%=%n
  71. return
  72. else cls
  73. goto top::
  74. endif
  75. ENDP
  76.